home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).do / CAPTURE.txt < prev    next >
Text File  |  1996-12-24  |  872b  |  21 lines
  1.  
  2. 11 D$ =  CHR$ (4): HOME : VTAB 8: REM   CTRL-D
  3. 12  PRINT "ENTER NAME OF PROGRAM BEING CAPTURED.": INPUT A$: VTAB 12:CC$ = "CAPTURE COMPLETED"
  4. 13 B$ = "OPEN " + A$:C$ = "DELETE " + A$:E$ = "WRITE " + A$:QT$ =  CHR$ (34):F$ = "CLOSE " + A$
  5. 14  PRINT "ENTER LINE # WHERE CAPTURE TO BEGIN.": INPUT FI: VTAB 16
  6. 15  PRINT "ENTER LINE # WHERE CAPTURE TO END.": INPUT LA
  7. 16  PRINT D$;"OPEN LISTER": PRINT D$;"DELETE LISTER": PRINT D$;"OPEN LISTER": PRINT D$;"WRITE LISTER"
  8. 17  PRINT "1D$=CHR$(4):PRINT D$;";QT$;B$;QT$
  9. 18  PRINT "2PRINT D$;";QT$;C$;QT$
  10. 19  PRINT "3 PRINT D$;";QT$;B$;QT$
  11. 20  PRINT "4 PRINT D$;";QT$;E$;QT$
  12. 21  PRINT "5 POKE 33,30"
  13. 22  PRINT "6 LIST";FI;",";LA
  14. 23  PRINT "7 PRINT D$;";QT$;F$;QT$
  15. 24  PRINT "8 TEXT:HOME:VTAB12:INVERSE
  16. 25  PRINT "9 PRINT";QT$;CC$;QT$
  17. 26  PRINT "10 NORMAL:DEL0,30:END"
  18. 27  PRINT D$;"CLOSE LISTER"
  19. 28  PRINT D$;"EXEC LISTER"
  20. 29  END 
  21.